<LENAT>S.;1
←
LOGOUT)
@
@DIR

   <LENAT>
 CON4.  ;10,8
    .COM;11
 FIX.   ;1
 L  .   ;2
 LL .   ;2
 S  .   ;1
 TOP4.  ;13,11
    .COM;14
 UTIL4. ;7,6
    .COM;6
  13 FILES, 351 PAGES

@DEL CON4
@DEL TOP4
@DEL UTIL4
@DEL FIX
@DIR

   <LENAT>
 CON4.  ;10
    .COM;11
 L  .   ;2
 LL .   ;2
 S  .   ;1
 TOP4.  ;13
    .COM;14
 UTIL4. ;7
    .COM;6
  9 FILES, 305 PAGES

@SYS

 10-JUL-75 16:30, UP 11:20:27  18 jobs
 LOAD AV   4.33   5.29   5.12
 Tenex will go down THU 7-10-75 1800 til THU 7-10-75 2359
 for preventive maintenance

 JOB TTY  USER      SUBSYS      # SIZE  RUNTIME
 2   7    LINDSAY   SOS         2   50  0:00:28.4
 5   101  PMOORE    SNDMSG      3   28  0:00:26.1
 9   12   VANMELLE  EXEC        2   17  0:01:16.0
 11  6    MERRITT   FILES       2   81  0:02:10.3
 12  102  COLBY     EXEC        1   19  0:00:07.4
 13  36   NSMITH    TV          2   47  0:04:12.6
 14  104  LENAT     EXEC        3  178  0:02:59.5
 16  50   OPERATOR  DUMPER      3  107  0:13:26.4
 17  47   JOHNSON   XRAY        2  136  0:03:26.9
 18  40   WILCOX    TV          2   55  0:18:24.9
 19  1    RECORDS   (PRIV)      2   73  0:03:50.6
 20  52   CAVALLI-SFORZA (PRIV)   2   86  0:01:04.1
 21  31   LIEB      TV          2   53  0:03:12.0
 22  37   JACKSON   EXEC        2   38  0:00:00.1
 23  2    ENGELMORE EXEC        2   14  0:00:56.6
 25  11   WHITE     LISP        3  137  0:00:58.2
 1   DET  SYSTEM    BATCON      2   30  0:02:00.0

@NET
  Site			 Load          Users
 SRI-AI		  6.82   6.98   8.18   43
 UTAH-10	  1.01   0.48   0.37   14
 BBN-TENEX	  0.81   2.04   1.91   18
 BBN-TENEXA	  0.30   0.55   0.53   18
 BBN-TENEXB	  5.31   4.75   3.65   17
 BBN-TENEXD	  3.60   2.10   1.07   11
 USC-ISI	  1.62   1.44   1.38   21
 USC-ISIB	  1.29   1.53   1.54   51
 USC-ECL	  1.95   2.81   3.52   28
 USC-ISIC	  1.27   1.04   1.01   19
 PARC-MAXC	  4.66   4.28   4.87   37
 OFFICE-1	  2.58   2.18   2.65   9
 SUMEX-AIM	  4.38   5.22   5.10   17
 SCI-TENEX	  0.16   0.11   0.27   2

@CON
NIL
←KFORK(T)
NIL
←
FILES?)
CON4,TOP4,UTIL4...to be dumped.
NIL
←
CHANGE-B)
COMPOSE-EXS
D-R
... D-R (OSET))
tty:

*(2)

*(:)

*OK

COMPOSE-EXS, D-R
D-R
←(CAR CONCEPTS)
COMPOSE-D-R
←
(CHANGE-B (CAR CONCEPTS)(CHANGE-B (CAR CONCEPTS) 'FILLIN1)